In this horizontal bar chart, the data collection shows the 5 UN Surveys (ARQ, UN-IFAQ, UN-CTS, IDS, and GLOTIP) that were completed by SIDS from 2019 - 2022. The vertical axis displays the survey type and the horizontal axis is the number of suveys completed and not completed.
reporting_status_sids
In this horizontal bar chart, the data collection shows the 5 UN Surveys (ARQ, UN-IFAQ, UN-CTS, IDS, and GLOTIP) that were completed by NON-SIDS from 2019 - 2022. The vertical axis displys the type of surveys and the horizontal axis is the number of surveys completed and not completed.
reporting_status_nonsids
This Heat Graph shows the completion status per year for every data collection for all SIDS from the years 2019 - 2022 for each of the four surveys(ARQ, UN-IFAQ, UN-CTS, IDS, and GLOTIP)
reporting_status_matrix
In this horizontal bar chart, we wanted to look at the SIDS overall criminality scores. In doing, we took the resillience score and subtracted from the criminality score to achieve the overal_score. For the SIDS with a postive score, there can be assumptions made that the country is making an effort to bring up their resilience towards crime so that they can decrease their criminality score. For the countries that have a negative score, their criminality scores outweigh the resilience score. Therefore, the conclusion can be made that their resilience methods needs to be improved upon.
sids_overall_score_plot
Looking at the OC index data frame, this heat map displays the values for each criminality and resilience measure. Orange is the highest value while yellow displays the lowest possible value.
heatmap <- ggplot(data = oc_index_sids_longer, aes(x = measure,
y = country,
fill = value)) +
geom_tile() +
theme(axis.text.x = element_text(angle = 45, size = 6, vjust = 1, hjust = 1)) +
scale_fill_gradient(low = "yellow", high = "red")
ggplotly(heatmap)
The spider plot displays the values of their criminality scores. Starting from the lowest possible score to the highest possible score.
radarchart(radar_data, axistype=1 , pcol=colors_border , pfcol=colors_in , plwd=3 , plty=1, cglcol="dark grey", cglty=1, axislabcol="grey", caxislabels=seq(0,20,5), cglwd=0.95,vlcex=0.8)